Cocktail Hour/image.iso/COCKTAIL.DIR/SShow_30_IDLE slideShowX.ls

Text File | 1997-03-05 | 1.5 KB | 57 lines

on exitFrame
  global SoundActive, gProgrmPathOnHD, OnceCheck, gAutoMode, gRecNumber, gDirection0IsBack1IsFwd, gPictureSprite, gElevatorSprite, gScrollBarSprite, gSlideListCstNum, gTitleCstNum, gFirstPictureCstNum, gDelayTime, gLinesNumber
  if SoundActive and (soundBusy(1) = 0) then
    sound playFile 1, gProgrmPathOnHD & "slides"
  end if
  if OnceCheck = 0 then
    cursor(-1)
    puppetSprite(9, 1)
    repeat with i = 42 to 48
      puppetSprite(i, 1)
    end repeat
    repeat with i = 9 to 16
      if i <> 11 then
        set the cursor of sprite i to [34, 35]
      end if
    end repeat
  end if
  puppetSprite(gPictureSprite, 1)
  puppetSprite(gElevatorSprite, 1)
  puppetSprite(7, 1)
  updateScroll()
  if gAutoMode then
    slideShow(gDirection0IsBack1IsFwd)
    startTimer()
    repeat while the timer < gDelayTime
    end repeat
  end if
  go(the frame)
end

on mouseUp
  global gAutoMode, gPictNumInOrder, RecipeNum, Choice
  set bUp to the clickOn
  if bUp = 9 then
    set gAutoMode to 0
    set the visible of sprite 10 to 1
    updateStage()
    set RecipeNum to gPictNumInOrder
    clearPuppets()
    set Choice to line RecipeNum of field "names" of castLib "lists"
    set x to the number of lines in field "backField"
    put marker(0) into line x + 1 of field "backField"
    go(marker("slideP"))
  else
    if bUp > 41 then
      buttonPressedUp(bUp, "Slides")
    end if
  end if
end

on mouseDown
  set bDown to the clickOn
  if bDown > 41 then
    buttonPressedDown(bDown, "Slides")
  end if
end